(comint-send-input): Add help-echo to mouse-highlighted text.

diff --git a/lisp/comint.el b/lisp/comint.el
index 213a0673106868bf09f622ff39dd9eb13ac5d8fb..ac5c20d77cb6c6c5cca21f054ca66d48bb34e5f5 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1442,6 +1442,9 @@ Similarly for Soar, Scheme, etc."
                (when comint-highlight-input
                  (overlay-put over 'face 'comint-highlight-input)
                  (overlay-put over 'mouse-face 'highlight)
+                 (overlay-put over
+                              'help-echo
+                              "mouse-2: insert previous clicked-on input")
                  (overlay-put over 'evaporate t))))
            (unless comint-use-prompt-regexp-instead-of-fields
              ;; Make an overlay for the terminating newline